library(ggplot2)
library(plotly)
##
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
mydata = read.csv("Seasons_Stats.csv")
summary(mydata)
## X Year Player Pos
## Min. : 0 Min. :1950 : 67 PF :4966
## 1st Qu.: 6172 1st Qu.:1981 Eddie Johnson : 33 SG :4811
## Median :12345 Median :1996 Mike Dunleavy : 32 C :4759
## Mean :12345 Mean :1993 Gerald Henderson: 29 SF :4699
## 3rd Qu.:18518 3rd Qu.:2007 Nazr Mohammed : 28 PG :4648
## Max. :24690 Max. :2017 Kevin Willis : 27 G : 139
## NA's :67 (Other) :24475 (Other): 669
## Age Tm G GS
## Min. :18.00 TOT : 2123 Min. : 1.00 Min. : 0.00
## 1st Qu.:24.00 NYK : 1043 1st Qu.:27.00 1st Qu.: 0.00
## Median :26.00 BOS : 998 Median :58.00 Median : 8.00
## Mean :26.66 DET : 917 Mean :50.84 Mean :23.59
## 3rd Qu.:29.00 PHI : 871 3rd Qu.:75.00 3rd Qu.:45.00
## Max. :44.00 LAL : 834 Max. :88.00 Max. :83.00
## NA's :75 (Other):17905 NA's :67 NA's :6458
## MP PER TS. X3PAr
## Min. : 0 Min. :-90.60 Min. :0.000 Min. :0.000
## 1st Qu.: 340 1st Qu.: 9.80 1st Qu.:0.458 1st Qu.:0.005
## Median :1053 Median : 12.70 Median :0.506 Median :0.064
## Mean :1210 Mean : 12.48 Mean :0.493 Mean :0.159
## 3rd Qu.:1971 3rd Qu.: 15.60 3rd Qu.:0.544 3rd Qu.:0.288
## Max. :3882 Max. :129.10 Max. :1.136 Max. :1.000
## NA's :553 NA's :590 NA's :153 NA's :5852
## FTr ORB. DRB. TRB.
## Min. :0.0000 Min. : 0.000 Min. : 0.00 Min. : 0.000
## 1st Qu.:0.2080 1st Qu.: 2.600 1st Qu.: 8.80 1st Qu.: 5.900
## Median :0.2960 Median : 5.400 Median : 12.70 Median : 9.200
## Mean :0.3255 Mean : 6.182 Mean : 13.71 Mean : 9.949
## 3rd Qu.:0.4000 3rd Qu.: 9.000 3rd Qu.: 18.10 3rd Qu.: 13.500
## Max. :6.0000 Max. :100.000 Max. :100.00 Max. :100.000
## NA's :166 NA's :3899 NA's :3899 NA's :3120
## AST. STL. BLK. TOV.
## Min. : 0.00 Min. : 0.000 Min. : 0.000 Min. : 0.00
## 1st Qu.: 6.50 1st Qu.: 1.100 1st Qu.: 0.300 1st Qu.: 11.40
## Median : 10.50 Median : 1.500 Median : 0.900 Median : 14.20
## Mean : 13.01 Mean : 1.648 Mean : 1.411 Mean : 15.09
## 3rd Qu.: 17.60 3rd Qu.: 2.100 3rd Qu.: 1.900 3rd Qu.: 17.70
## Max. :100.00 Max. :24.200 Max. :77.800 Max. :100.00
## NA's :2136 NA's :3899 NA's :3899 NA's :5109
## USG. blanl OWS DWS
## Min. : 0.00 Mode:logical Min. :-5.100 Min. :-1.000
## 1st Qu.: 15.40 NA's:24691 1st Qu.:-0.100 1st Qu.: 0.200
## Median : 18.60 Median : 0.400 Median : 0.800
## Mean : 18.91 Mean : 1.257 Mean : 1.227
## 3rd Qu.: 22.20 3rd Qu.: 1.900 3rd Qu.: 1.800
## Max. :100.00 Max. :18.300 Max. :16.000
## NA's :5051 NA's :106 NA's :106
## WS WS.48 blank2 OBPM
## Min. :-2.800 Min. :-2.519 Mode:logical Min. :-73.800
## 1st Qu.: 0.200 1st Qu.: 0.031 NA's:24691 1st Qu.: -3.400
## Median : 1.400 Median : 0.075 Median : -1.500
## Mean : 2.486 Mean : 0.065 Mean : -1.778
## 3rd Qu.: 3.800 3rd Qu.: 0.115 3rd Qu.: 0.300
## Max. :25.400 Max. : 2.123 Max. : 47.800
## NA's :106 NA's :590 NA's :3894
## DBPM BPM VORP FG
## Min. :-30.400 Min. :-86.700 Min. :-2.60 Min. : 0.0
## 1st Qu.: -1.700 1st Qu.: -4.200 1st Qu.:-0.20 1st Qu.: 41.0
## Median : -0.500 Median : -1.800 Median : 0.00 Median : 141.0
## Mean : -0.549 Mean : -2.327 Mean : 0.56 Mean : 195.3
## 3rd Qu.: 0.700 3rd Qu.: 0.300 3rd Qu.: 0.90 3rd Qu.: 299.0
## Max. : 46.800 Max. : 36.200 Max. :12.40 Max. :1597.0
## NA's :3894 NA's :3894 NA's :3894 NA's :67
## FGA FG. ThreePoints X3PA
## Min. : 0.0 Min. :0.0000 Min. : 0.00 Min. : 0.0
## 1st Qu.: 99.0 1st Qu.:0.3930 1st Qu.: 0.00 1st Qu.: 1.0
## Median : 321.0 Median :0.4390 Median : 2.00 Median : 11.0
## Mean : 430.6 Mean :0.4308 Mean : 22.21 Mean : 63.6
## 3rd Qu.: 661.0 3rd Qu.:0.4800 3rd Qu.: 27.00 3rd Qu.: 84.0
## Max. :3159.0 Max. :1.0000 Max. :402.00 Max. :886.0
## NA's :67 NA's :166 NA's :5764 NA's :5764
## X3P. X2P X2PA X2P.
## Min. :0.000 Min. : 0.0 Min. : 0.0 Min. :0.0000
## 1st Qu.:0.100 1st Qu.: 35.0 1st Qu.: 82.0 1st Qu.:0.4070
## Median :0.292 Median : 122.0 Median : 270.0 Median :0.4560
## Mean :0.249 Mean : 178.3 Mean : 381.8 Mean :0.4453
## 3rd Qu.:0.363 3rd Qu.: 268.0 3rd Qu.: 579.2 3rd Qu.:0.4960
## Max. :1.000 Max. :1597.0 Max. :3159.0 Max. :1.0000
## NA's :9275 NA's :67 NA's :67 NA's :195
## eFG. FT FTA FT.
## Min. :0.0000 Min. : 0.0 Min. : 0.0 Min. :0.0000
## 1st Qu.:0.4140 1st Qu.: 18.0 1st Qu.: 27.0 1st Qu.:0.6570
## Median :0.4630 Median : 63.0 Median : 88.0 Median :0.7430
## Mean :0.4507 Mean :102.4 Mean : 136.8 Mean :0.7193
## 3rd Qu.:0.5010 3rd Qu.:149.0 3rd Qu.: 201.0 3rd Qu.:0.8080
## Max. :1.5000 Max. :840.0 Max. :1363.0 Max. :1.0000
## NA's :166 NA's :67 NA's :67 NA's :925
## ORB DRB TRB AST
## Min. : 0.00 Min. : 0.0 Min. : 0.0 Min. : 0.0
## 1st Qu.: 12.00 1st Qu.: 33.0 1st Qu.: 51.0 1st Qu.: 19.0
## Median : 38.00 Median : 106.0 Median : 159.0 Median : 68.0
## Mean : 62.19 Mean : 147.2 Mean : 224.6 Mean : 114.9
## 3rd Qu.: 91.00 3rd Qu.: 212.0 3rd Qu.: 322.0 3rd Qu.: 160.0
## Max. :587.00 Max. :1111.0 Max. :2149.0 Max. :1164.0
## NA's :3894 NA's :3894 NA's :379 NA's :67
## STL BLK TOV PF
## Min. : 0.0 Min. : 0.00 Min. : 0.00 Min. : 0.0
## 1st Qu.: 9.0 1st Qu.: 3.00 1st Qu.: 18.00 1st Qu.: 39.0
## Median : 29.0 Median : 11.00 Median : 55.00 Median :109.0
## Mean : 39.9 Mean : 24.47 Mean : 73.94 Mean :116.3
## 3rd Qu.: 60.0 3rd Qu.: 29.00 3rd Qu.:112.00 3rd Qu.:182.0
## Max. :301.0 Max. :456.00 Max. :464.00 Max. :386.0
## NA's :3894 NA's :3894 NA's :5046 NA's :67
## PTS
## Min. : 0.0
## 1st Qu.: 106.0
## Median : 364.0
## Mean : 510.1
## 3rd Qu.: 778.0
## Max. :4029.0
## NA's :67
qplot(x=Age,
y=ThreePoints,
data=mydata,
geom="point",
main = "NBA players",
xlab="Age",
ylab="3PS/G",
color= Pos
)
## Warning: Removed 5764 rows containing missing values (geom_point).

my.plot3 <- ggplot(mydata, aes(x = Age))
my.plot3 <- my.plot3 +
geom_histogram(binwidth = 0.2, fill = "steelblue")
my.plot3
## Warning: Removed 75 rows containing non-finite values (stat_bin).

plot_ly(mydata, x = ~Age, color = ~Pos, type = "box")
## Warning: Ignoring 75 observations
## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors
## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors